home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / ACORNUSERS / CBSA / GAMES / ZIP2000 / !Zip2000 / !Run < prev    next >
Text File  |  1998-08-04  |  2KB  |  63 lines
  1. Set Zip$Dir <Obey$Dir>
  2. IconSprites <Zip$Dir>.!Sprites
  3. Set File$Type_061 Z-Code1
  4. Set File$Type_062 Z-Code2
  5. Set File$Type_063 Z-Code3
  6. Set File$Type_064 Z-Code4
  7. Set File$Type_065 Z-Code5
  8. Set File$Type_066 Z-Code6
  9. Set File$Type_067 Z-Code7
  10. Set File$Type_068 Z-Code8
  11. Set File$Type_11A Z-Code
  12. Set File$Type_17B Blorb
  13. Set Alias$@RunType_061 /<Zip$Dir> 
  14. Set Alias$@RunType_062 /<Zip$Dir> 
  15. Set Alias$@RunType_063 /<Zip$Dir> 
  16. Set Alias$@RunType_064 /<Zip$Dir> 
  17. Set Alias$@RunType_065 /<Zip$Dir> 
  18. Set Alias$@RunType_066 /<Zip$Dir> 
  19. Set Alias$@RunType_067 /<Zip$Dir> 
  20. Set Alias$@RunType_068 /<Zip$Dir> 
  21. Set Alias$@RunType_11A /<Zip$Dir> 
  22. Set Alias$@RunType_17B /<Zip$Dir> 
  23.  
  24. IF "%0"="" THEN Error To use Zip 2000, double-click on a story file
  25.  
  26. Set ZipSave$Path <Zip$Dir>.Resources.SavedGames.
  27. Set Zip$ChoicesFile <Zip$Dir>.Choices
  28.  
  29. Set System$Path_Message System resources cannot be found
  30.  
  31. RMEnsure Toolbox 1.36 RMLoad System:Modules.Toolbox.Toolbox
  32. RMEnsure Toolbox 1.36 Error You need Toolbox 1.36 or later to run Zip 2000
  33.  
  34. RMEnsure Window 1.30 RMLoad System:Modules.Toolbox.Window
  35. RMEnsure Window 1.30 Error You need Window Object 1.30 or later to run Zip 2000
  36.  
  37. RMEnsure Menu 0.23 RMLoad System:Modules.Toolbox.Menu
  38. RMEnsure Menu 0.23 Error You need Menu 0.23 or later to run Zip 2000
  39.  
  40. RMEnsure ProgInfo 0.09 RMLoad System:Modules.Toolbox.ProgInfo
  41. RMEnsure ProgInfo 0.09 Error You need ProgInfo 0.09 or later to run Zip 2000
  42.  
  43. RMEnsure Iconbar 1.11 RMLoad System:Modules.Toolbox.IconBar
  44. RMEnsure Iconbar 1.11 Error You need Iconbar 1.11 or later to run Zip 2000
  45.  
  46. RMEnsure FileInfo 0.14 RMLoad System:Modules.Toolbox.FileInfo
  47. RMEnsure FileInfo 0.14 Error You need FileInfo 0.14 or later to run Zip 2000
  48.  
  49. RMEnsure DCS 1.06 RMLoad System:Modules.Toolbox.DCS_Quit
  50. RMEnsure DCS 1.06 Error You need DCS Object 1.06 or later to run Zip 2000
  51.  
  52. RMEnsure FontMenu 0.17 RMLoad System:Modules.Toolbox.FontMenu
  53. RMEnsure FontMenu 0.17 Error You need FontMenu 0.17 or later to run Zip 2000
  54.  
  55. RMEnsure SaveAs 0.11 RMLoad System:Modules.Toolbox.SaveAs
  56. RMEnsure SaveAs 0.11 Error You need SaveAs 0.11 or later to run Zip 2000
  57.  
  58. IF "<Font$Bold>"="" THEN Set Font$Bold "Bold Demi ExtraBold Ultra Heavy"
  59. IF "<Font$Italic>"="" THEN Set Font$Italic "Italic Oblique Slant"
  60.  
  61. WimpSlot 128k 128k
  62. Run <Zip$Dir>.!RunImage %*0
  63.